home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / UserCode / update.tcl < prev    next >
Encoding:
Text File  |  1994-07-07  |  2.5 KB  |  86 lines  |  [TEXT/ALFA]
  1. # FILE: update.tcl
  2. #
  3. # LAST UPDATE: 01/06/93 4:45:33 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #     update  -- automatically updates timestamp on a file
  8. #
  9. # 
  10. #     Just add a line with 'LAST UPDATE: 01/2/34 5:67:89 AM' within the 
  11. #     first 500 characters of your file. Also add an alias of the form 
  12. #     {electricAlias def "" "UPDATE:" "UPDATE:§«update»"}. Now select the 
  13. #     space after the colon (:) and type DELETE TAB...you get a line similar 
  14. #     to: LAST UPDATE: 01/06/93 4:51:50 AM 
  15. # 
  16. #     This proc is useful with electricAlias definitions (ie. §«update»).
  17. #    In fact the date on THIS file is maintained thusly.
  18. #
  19. #    To use, simply source this file place it in the a folder with the
  20. #    name $HOME:Tcl:Usercode: and invoke it implicitly via the "unknown proc".
  21. #
  22. # SEE ALSO unknown.tcl, electricAlias.tcl
  23.  
  24. # COPYRIGHT:
  25. #
  26. #    Copyright © 1992,1993 by David C. Black
  27. #    All rights reserved.
  28. #
  29. #    Redistribution and use in source and binary forms are permitted
  30. #    provided that the above copyright notice and this paragraph are
  31. #    duplicated in all such forms and that any documentation,
  32. #    advertising materials, and other materials related to such
  33. #    distribution and use acknowledge that the software was developed
  34. #    by David C. Black.
  35. #
  36. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  37. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  38. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  39. #
  40. ################################################################################
  41.  
  42. # AUTHOR
  43. #
  44. #    David C. Black
  45. #    Internet: black@mpd.tandem.com (preferred)
  46. #    GEnie:    D.C.Black
  47. #    USnail:   6217 John Chisum Lane, Austin, TX 78749
  48. #
  49. ################################################################################
  50.  
  51. # HISTORY
  52. #                  
  53. # modified who rev reason
  54. # -------- --- --- ------
  55. # 01/06/93 DCB 1.0 Original
  56.  
  57. proc update {args} {
  58.     set max [maxPos]
  59.     if {$max > 500} {
  60.         set max 500
  61.     }
  62.     set pos [getPos]
  63.     set end [selEnd]
  64.     set text [getText 0 $max]
  65.     set hour {[0-9][0-9]?:[0-9][0-9]:[0-9][0-9] [AP]M}
  66.     set date {[0-9][0-9]?/[0-9][0-9]?/[0-9][0-9]}
  67.     set patt "LAST UPDATE ?: ( *$date $hour)"
  68.     if {![regexp -indices $patt $text all datePos]} {
  69.         return ""
  70.     }
  71.     set p1 [lindex $datePos 0]
  72.     set p2 [expr {[lindex $datePos 1]+1}]
  73.     set text [getText $p1 $p2]
  74.     set time [mtime [now] short]
  75.     if {$text == $time} {
  76.         return ""
  77.     }
  78.     replaceText $p1 $p2 $time
  79.     goto $pos
  80.     select $pos $end
  81.     return ""
  82. }
  83. #endproc update
  84. ################################################################################
  85.  
  86.